Séries temporais de venda de

data <- readr::read_csv(
  "train.csv"
  ) |> 
  group_by(date) |> 
  summarise(sales = mean(sales)) |> 
  filter(year(date) == 2017)

data |> 
  plot_time_series(
    date, 
    sales,
    .interactive = TRUE
    )

data |> 
  plot_acf_diagnostics(
    date,
    sales,
    .interactive = TRUE
  )